unit uUserManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, DB,
  ExtCtrls, DBCtrls, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, ADODB,
  StdCtrls, Grids, DBGrids;

type
  TUserManage = class(TForm)
    ds1: TDataSource;
    qry1: TADOQuery;
    grd1: TDBGrid;
    dbnvgr1: TDBNavigator;
    wdstrngfldqry1DSDesigner: TWideStringField;
    wdstrngfldqry1DSDesigner2: TWideStringField;
    intgrfldqry1DSDesigner3: TIntegerField;
    wdstrngfldqry1DSDesigner1: TWideStringField;
    wdstrngfldqry1DSDesigner3: TWideStringField;
    wdstrngfldqry1EMAIL: TWideStringField;
    btnPowerManager: TButton;
    procedure btnPowerManagerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserManage:TUserManage;

implementation

uses
  uDM, uPowerManage;

{$R *.dfm}

procedure TUserManage.btnPowerManagerClick(Sender: TObject);
begin
  ShowForm(TPowerManage,PowerManage);
end;

procedure TUserManage.FormCreate(Sender: TObject);
begin
  qry1.Open();
end;

end.
